Option Explicit
Sub O_Sample005()
    Dim myWd As VBIDE.Window
    For Each myWd In ThisWorkbook.VBProject.VBE.Windows
        Select Case myWd.Type
            Case vbext_wt_CodeWindow, vbext_wt_Designer
                myWd.Close
        End Select
    Next
End Sub